home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / windows / virc96_1.zip / VIRC96.EXE / 0 / RCDATA / TCHANNELFORM / TCHANNELFORM.txt
Text File  |  1996-06-04  |  11KB  |  385 lines
  1. object ChannelForm: TChannelForm
  2.   Left = 344
  3.   Top = 284
  4.   Width = 654
  5.   Height = 424
  6.   ActiveControl = tbChanCommand
  7.   Caption = 'Channel # + -'
  8.   Font.Color = clWindowText
  9.   Font.Height = -13
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   FormStyle = fsMDIChild
  13.   Position = poDefault
  14.   Visible = True
  15.   OnActivate = FormActivate
  16.   OnClose = FormClose
  17.   OnCreate = FormCreate
  18.   OnShow = FormShow
  19.   PixelsPerInch = 120
  20.   TextHeight = 16
  21.   object Panel1: TPanel
  22.     Left = 0
  23.     Top = 0
  24.     Width = 646
  25.     Height = 396
  26.     Align = alClient
  27.     BevelOuter = bvNone
  28.     BorderWidth = 5
  29.     Font.Color = clWindowText
  30.     Font.Height = -13
  31.     Font.Name = 'MS Sans Serif'
  32.     Font.Style = []
  33.     ParentFont = False
  34.     TabOrder = 0
  35.     object MainPanel: TPanel
  36.       Left = 5
  37.       Top = 43
  38.       Width = 636
  39.       Height = 316
  40.       Align = alClient
  41.       BevelOuter = bvLowered
  42.       BorderWidth = 5
  43.       TabOrder = 0
  44.       OnMouseMove = MainPanelMouseMove
  45.       object tbChannelText: TRichEdit
  46.         Left = 6
  47.         Top = 6
  48.         Width = 468
  49.         Height = 304
  50.         Hint = 
  51.           'Channel text appears here. Just double-click on any URL to autom' +
  52.           'agically hyperlink there!!'
  53.         TabStop = False
  54.         Align = alClient
  55.         HideSelection = False
  56.         HideScrollBars = False
  57.         PlainText = True
  58.         PopupMenu = PopupMenu1
  59.         ReadOnly = True
  60.         ScrollBars = ssVertical
  61.         TabOrder = 0
  62.         WantReturns = False
  63.         OnMouseDown = HyperlinkMouseDown
  64.       end
  65.       object NamesPanel: TPanel
  66.         Left = 479
  67.         Top = 6
  68.         Width = 151
  69.         Height = 304
  70.         Align = alRight
  71.         BevelOuter = bvNone
  72.         TabOrder = 1
  73.         object lvNames: TListView
  74.           Left = 0
  75.           Top = 0
  76.           Width = 151
  77.           Height = 304
  78.           Hint = 
  79.             'Users on channel|Users on channel. Just double-click on a nick t' +
  80.             'o query WHOIS informaton'
  81.           Align = alClient
  82.           OnDblClick = lvNamesDblClick
  83.           Columns = <
  84.             item
  85.               Caption = '&Nicks'
  86.               Width = 6
  87.               WidthType = (
  88.                 -1)
  89.             end>
  90.           DragMode = dmAutomatic
  91.           ReadOnly = True
  92.           Font.Color = clWindowText
  93.           Font.Height = -15
  94.           Font.Name = 'Arial'
  95.           Font.Style = [fsBold]
  96.           HideSelection = False
  97.           IconOptions.Arrangement = iaLeft
  98.           IconOptions.AutoArrange = True
  99.           ParentShowHint = False
  100.           ShowHint = True
  101.           ShowColumnHeaders = False
  102.           SortType = stBoth
  103.           TabOrder = 0
  104.           ViewStyle = vsReport
  105.         end
  106.       end
  107.       object Splitter: TPanel
  108.         Left = 474
  109.         Top = 6
  110.         Width = 5
  111.         Height = 304
  112.         Cursor = crHSplit
  113.         Hint = 
  114.           'Just drag this bar left or right to resize the text and names pa' +
  115.           'nes'
  116.         Align = alRight
  117.         BevelOuter = bvNone
  118.         Ctl3D = True
  119.         ParentCtl3D = False
  120.         ParentShowHint = False
  121.         ShowHint = False
  122.         TabOrder = 2
  123.         OnMouseDown = SplitterMouseDown
  124.         OnMouseMove = SplitterMouseMove
  125.         OnMouseUp = SplitterMouseUp
  126.       end
  127.     end
  128.     object ToolbarPanel: TPanel
  129.       Left = 5
  130.       Top = 5
  131.       Width = 636
  132.       Height = 38
  133.       Align = alTop
  134.       Font.Color = clWindowText
  135.       Font.Height = -13
  136.       Font.Name = 'MS Sans Serif'
  137.       Font.Style = []
  138.       ParentFont = False
  139.       TabOrder = 1
  140.       object pbLeave: TSpeedButton
  141.         Left = 11
  142.         Top = 4
  143.         Width = 31
  144.         Height = 31
  145.         Hint = 'Leave|Leave this channel'
  146.         Glyph.Data = {
  147.           E8010000424DE801000000000000760000002800000020000000100000000100
  148.           0400020000007201000000000000000000001000000010000000000000000000
  149.           800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  150.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0002330A000203
  151.           04330A7700047F3300000004330B08BB020304330004773F063300047F330000
  152.           0004330B08BB0203043300067F73F300043300047F3300000004330B08BB0203
  153.           043300067F373F00043300047F3300000004330B04BB0006B9BB030004330006
  154.           7F337F00043300047F3300000004330B04BB000699BB0300043300067F337F00
  155.           043300047F3300000008330BBBB908990008337F337F043300047F3300000006
  156.           330BBB000A990008337F337F043300047F3300000008330BBBB908990008337F
  157.           337F043300047F3300000004330B04BB000699BB03000433000E7F337FF3337F
  158.           330000000004330B04BB0006B9BB0300043300067F337700043300047F330000
  159.           0004330B08BB0203043300067F337F00043300047F3300000004330B08BB0203
  160.           043300067F3F7F00043300047F3300000004330B08BB02030433067F04330004
  161.           7F3300000004330B08BB0203043300067F777F0004FF00047F33000002330A00
  162.           020304330A77000473330001}
  163.         NumGlyphs = 2
  164.         ParentShowHint = False
  165.         ShowHint = True
  166.         OnClick = pbLeaveClick
  167.       end
  168.       object pbPrint: TSpeedButton
  169.         Left = 46
  170.         Top = 4
  171.         Width = 31
  172.         Height = 31
  173.         Hint = 'Print|Print the contents of this channel window'
  174.         Glyph.Data = {
  175.           76010000424D7601000000000000760000002800000020000000100000000100
  176.           04000000000000010000130B0000130B00000000000000000000000000000000
  177.           800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  178.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
  179.           00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
  180.           8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
  181.           8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
  182.           8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
  183.           03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
  184.           03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
  185.           33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
  186.           33333337FFFF7733333333300000033333333337777773333333}
  187.         NumGlyphs = 2
  188.         ParentShowHint = False
  189.         ShowHint = True
  190.         OnClick = pbPrintClick
  191.       end
  192.       object ChannelMode: TLabel
  193.         Left = 438
  194.         Top = 11
  195.         Width = 84
  196.         Height = 16
  197.         Caption = 'ChannelMode'
  198.         Visible = False
  199.       end
  200.       object ChannelTopic: TLabel
  201.         Left = 530
  202.         Top = 11
  203.         Width = 84
  204.         Height = 16
  205.         Caption = 'ChannelTopic'
  206.         Visible = False
  207.       end
  208.     end
  209.     object Panel2: TPanel
  210.       Left = 5
  211.       Top = 359
  212.       Width = 636
  213.       Height = 32
  214.       Align = alBottom
  215.       BevelOuter = bvNone
  216.       TabOrder = 2
  217.       object tbChanCommand: TRichEdit
  218.         Left = 0
  219.         Top = 0
  220.         Width = 636
  221.         Height = 32
  222.         Align = alClient
  223.         PopupMenu = ServerForm.PopupMenu2
  224.         TabOrder = 0
  225.         WordWrap = False
  226.         OnKeyPress = tbChanCommandKeyPress
  227.       end
  228.     end
  229.   end
  230.   object ImageList1: TImageList
  231.     BlendColor = clBtnFace
  232.     BkColor = clSilver
  233.     DrawingStyle = dsTransparent
  234.     Left = 389
  235.     Top = 13
  236.   end
  237.   object PopupMenu1: TPopupMenu
  238.     OnPopup = PopupMenu1Popup
  239.     Left = 309
  240.     Top = 11
  241.     object PopupCut: TMenuItem
  242.       Caption = '&Cut'
  243.       Enabled = False
  244.       ShortCut = 0
  245.     end
  246.     object PopupCopy: TMenuItem
  247.       Caption = 'C&opy'
  248.       ShortCut = 0
  249.       OnClick = PopupCopyClick
  250.     end
  251.     object PopupPaste: TMenuItem
  252.       Caption = '&Paste'
  253.       Enabled = False
  254.       ShortCut = 0
  255.     end
  256.     object N2: TMenuItem
  257.       Caption = '-'
  258.       ShortCut = 0
  259.     end
  260.     object ChannelLeave: TMenuItem
  261.       Caption = '&Leave'
  262.       Default = True
  263.       ShortCut = 16460
  264.       OnClick = pbLeaveClick
  265.     end
  266.     object N1: TMenuItem
  267.       Caption = '-'
  268.       ShortCut = 0
  269.     end
  270.     object ChannelChangeMode: TMenuItem
  271.       Caption = 'Channel &mode'
  272.       ShortCut = 16461
  273.       object ModeI: TMenuItem
  274.         Caption = '+&i - Invite-only'
  275.         Hint = 'Users can only join after an invitation from an op'
  276.         ShortCut = 0
  277.         OnClick = ModeIClick
  278.       end
  279.       object ModeK: TMenuItem
  280.         Caption = '+&k - Set channel key